#!/usr/bin/perl

use strict;
use warnings;

my @array;
push( @array, 1 );
push( @array, 2 );

print $array[0];

my %hash = ( key1 => 'value1', key2 => 'value2' );
print $hash{'key1'};