Select Code to Download

#!/usr/bin/perl -w
use strict;
...
  $result = $cache{$_} ||= get_data($_);
  print "$result\n";
}

retrieving data for 1...
value for 1
...
value for 64
value for 1
value for 2