Add 'use strict;' and change %header to %$header and change $header{...} to $header->{...}. You might find References quick reference helpful. For more in-depth information on references, start with "perldoc perlreftut"