#!/usr/bin/perl -w
use strict;

my @array = (
    { 'name' => 'Chuck',
      'job'  => 'roustabout' },
    { 'name' => 'CowboyNeal',
      'job'  => 'code monkey' });

 
push @array, { 'name' => 'vroom', 'job' => 'stacking blocks' };
print $array[0]->{name};
sleep 30