use strict;
use warnings;

my %Point = ('E' => [0,1,2],  'ID' => 'X30Y30VX11VY15E15');
&SomeRoutine(\%Point);

sub SomeRoutine {
 my $hashref = shift;
 my $id = $hashref->{'ID'};
 my @e = @{$hashref->{'E'}};
 print $id, "\n";
 print @e, "\n";

}
__DATA__
X30Y30VX11VY15E15
012