#!/usr/bin/perl

# Yo, I'll tell you what I want, what I really really want, 
# So tell me what you want, what you really really want, 
# I'll tell you what I want, what I really really want, 
# So tell me what you want, what you really really want, 
# I wanna, I wanna, I wanna, I wanna, 
# I wanna really really really wanna zigazig ha. 


@l = ( "a", "b", "c" );
*m = &{sub {\@_}} (grep /a/, @l);
$m[0] = "z";
print "@l\n";