12345678910111213141516 use strict;use warnings;use Slurp;use Data::Dumper;my @lines = slurp($ARGV[0]);my $max;foreach (@lines) { chomp; my @c = split / /; print "@c \n"; }# print Dumper $max;
use
strict;
warnings;
Slurp;
Data::Dumper;
my
@lines
= slurp(
$ARGV
[0]);
$max
;
foreach
(
) {
chomp
@c
=
split
/ /;
print
"@c \n"
}
# print Dumper $max;