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

print auswahl(@artikel);

sub auswahl{
my $g=0;
$g+=$_->[0] for @_;

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