UNIX for Advanced & Expert Users

I am getting the problem to sort these input in perl.

Code:

INPUT
------
Eddie-3
Michael-1
Nica-4
Montoya-6

Then the program should print the output as follows:

Code:

OUTPUT
-------
Michael-1
Eddie-3
Nica-4
Montoya-6

I am only able to sort to the words but I want to sort to numbers..

My scripts gives this output,which is wrong.

Code:

#!/usr/local/bin/perl
$line=<STDIN>;
while ($line ne "") {
chop($line);
push(@array,$line);
$line=<STDIN>;
}
@array2=sort(@array);
foreach $line (@array2){
print "$line\n";
}

Code:

output-> Eddie-3
Michael-1
Montoya-6
Nica-4

but i Want output like .

Code:

Michael-1
Eddie-3
Nica-4
Montoya-6

Code:

$ cat input.txt
Eddie-3
Michael-1
Nica-4
Montoya-6
$ perl -We 'print sort { ($l)=($a=~/-(\d+)/); ($r)=($b=~/-(\d+)/); $l <=> $r; } <>' input.txt
Michael-1
Eddie-3
Nica-4
Montoya-6

Could you please explain a little bit about the code you wrote.
I am not able to understand ... Please

For the command line switches, see perldoc perlrun. -W enables warnings (possible typos), -e tells Perl to use the first argument as a stand-alone script ("oneliner").

For the "diamond operator", see perldoc perlop: When evaluated in a list context, it returns all the lines at once. Those are then fed into sort.

sort can be invoked in 3 forms: without a special argument, it will do regular alphanumerical sorting, depending on your locale. Alternatively, you can specify your own routing as a code block or a sub. Inside this code block, $a and $b refer to the left and right side of the comparison. From each I extract the digit(s) after the dash, and do a numerical comparison using the <=> operator.

Finally, the resulting, sorted, list is printed again.

It could also have been done using the Schwartzian transform, but 2 additional maps would improve nothing, and might even slow it down.

Thanks Pludi for the convincing information.
Could you please also guide the best site or book which contain examples so that I will learn more about perl

Learning Perl, Programming Perl, any information you might find useful from Perl.org.