in reply to Certainly learning
while(<>) { # Inside the loop, $_ will contain each ten-digit number in turn } [download]
But wouldn't
my @devices = <>; [download]
Be a little simpler?
"Perl make the fun jobs fun and the boring jobs bearable" - me