gistfile1.txt

#!/usr/bin/perl

use strict;
use warnings;

use 5.010;

use Data::Dumper;

# ---

my @list = (
  { track => 5, title => "I love me a good pig!" },
  { track => 4, title => "Great tunes.com" },
  { track => 2, title => "Doggy doggy doggy, come to town doggy!" },
  { track => 7, title => "Rock and/or roll" },
);

@list = sort { $a->{track} <=> $b->{track} } @list;

say Dumper @list;