use strict; my @a = (5 .. 10); print $a['Infinity'], "\n", $a['-Infinity'], "\n"; print $a['Infinity'], "\n", $a['-Infinity'], "\n"; print 0+"Infinity" . "\n"; print 0+"-Infinity" . "\n";