Producer: xxxxxx Wang Xiao-Ming
Data number: 3
First data: 5
Second data: 6
Third data: 7
Original data: 5 6 7
Sort from small number: 5 6 7
Enter

#!c:/perl/bin/perl.exe

my $loop = 0;

print "製作人:XXXXXXX 王小名\n";

print "請輸入資料數:";
$data_num = <STDIN>;

while ( $data_num > 0 )
{
print"第",$loop += 1,"筆資料:";
$data =<STDIN>;
chomp $data;
push ( @data, $data );
$data_num -= 1;
}

print "輸入的原始資料:\n","@data\n";

print "\n由小依序排列:\n",join(" ", sort { $a <=> $b } @data );