Select Code to Download

# a map
print "%18s %18s %18s\n" => map {$ip_date_time[$i]{$_}} qw/ip date tim
+e/;
# a hash slice
print "%18s %18s %18s\n" => @{$ip_date_time[$i]}{qw/ip date time/};