#!/user/bin/perl -w
use strict;


my @artikel=([5,'Artikel1'],[10,'Artikel2'],[20,'Artikel3']);

print auswahl(@artikel);

sub auswahl{

  my $prozent=0;
  my $h=0;
        
  foreach my $artikel (@_){
        
    $prozent +=$artikel->[0];
        
  }

  my $zahl= rand ($prozent);
        
  foreach my $artikel (@_){
                
    $h+=$artikel->[0];
                
    return $artikel->[1] if $h>$zahl
        
  }

}