The problem remains: $item is still an alias to the members of the @event.
#!/usr/bin/perl
use warnings;
use strict;
sub event_hasher {
my $cur_event = shift;
my %event_hash;
for my $item (@$cur_event) {
$item =~ s/://g;
my ($key, $value) = split / /, $item;
$event_hash{$key} = $value;
}
return \%event_hash
}
my @event = ('a:b c:d');
print "@event\n";
my $type = event_hasher(\@event);
print "@event\n";
($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,