#!/usr/bin/env perl

use strict; use warnings;
use Data::Dumper;

my $arr;

push @{$arr->{car}}, ( 4,3,2,1 );
print Dumper $arr;