#!perl -w
use strict;

#               Name Age Street
my @user = (qw(John 42  Infinityway));
my %user = ...;