[ create a new paste ] login | about

Link: http://codepad.org/kClGT0yn    [ raw code | fork ]

sironekotoro - Perl, pasted on Sep 23:
1
2
3
4
5
6
7
8
9
10
11
12
13
#!/usr/bin/env perl
use strict;
use warnings;

my @array;

for my $var (1..3){
    my $input = <STDIN>;
    chomp $input;
    push (@array , $input) ;
}

print sort @array;


Create a new paste based on this one


Comments: