Perl入学式

sort.pl

#!/usr/bin/env perl
use strict;
use warnings;

my @array1; # 配列

# 3回入力する
for my $i (1..3) {
  print $i."番目";
	chomp($array1[$i-1] = <STDIN>);
}

print (sort @array1);
print "\n";