Help for this page

Select Code to Download


  1. or download this
      sub ahash{
        my %hash=@_;
        foreach my $key(keys %hash){
    ...
            return @val;
        }
    }
    
  2. or download this
    my @list =qw (1 2 3 4 5);
    print addmodule::ahash(@list),"\n";