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

#outputs 10 and 5