Select Code to Download

#!perl -w
use strict;
...
#               Name Age Street
my @user = (qw(John 42  Infinityway));
my %user = ...;