my $index = \&login; for (keys %{$_[0]}) { print qq[\n$index->()\n\n]; }