Select Code to Download

tie my @nums, 'Tie::File', $filename;

min(@nums);
max(@nums);

$ cat pm_num_list.txt
123
...
12e-3
-12e3
-123

#!/usr/bin/env perl

...
print 'Max: ', max(@nums), "\n";

untie @nums;

Min: -12e3
Max: 12e3