no strict; sub c { print "see?\n" } @x = ( a => b => c );