sub foo
{
    my %foo = ( Foo => '1',
                Bar => '2');
    return %foo;
}
                                                                                
sub bar
{
   my @bar = qw(Foo 1 Bar 2);
   return @bar;
}
                                                                                
sub baz
{
   return 'Foo','1','Bar','2';
}
                                                                                
print foo(),"\n";
print bar(),"\n";
print baz(),"\n";