battlesquid

# Lag en MIDLERTIDIG HASH MED ALLE MULIGE KURSPAKKER ut i fra registreringer                                          
sub makeAllGroups {                                                                                                   
    my @tmp_emp = (1010,1017,1090,1280);                                                                              
    my @tmp_kurs = (2030,2090,2098,1260);                                                                             
    print Dumper makeGroup(\@tmp_kurs,\@tmp_emp);                                                                     
}                                                                                                                     
                                                                                                                      
# Lager gruppe (hash) ut i fra gitte parametere                                                                       
sub makeGroup {                                                                                                       
    my %h;                                                                                                            
    $h{kurs} = shift;                                                                                                 
    $h{emp} = shift;                                                                                                  
    return %h;                                                                                                        
}