use Sort::Key;
my @sorted = ikeysort { /^(\d*)/; $1 } @data;

or

my @sorted = ikeysort { no warnings; int $_ } @data;
[download]

or even

my @sorted = sort { no warnings; $a <=> $b } @data;
[download]

update: oops, "no warnings" can not be used inside the comparison expression, so...

my @sorted;
{
  no warnings;
  @sorted = sort { $a <=> $b } @data;
}
[download]

... has to be used instead