my $size = (-s $_, $_);