#!/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
	
  }

}