my $data = $Hash{$a};
my @elt = split /::/, $data;

# Do stuff with @elt here.

# push @elt, $new_data  to add data

$data = join '::', @elt;
$Hash{$a} = $data;