Hallo,
if ($myc) {my @number = split(/-/, $myc);}
wird doch ausgeführt, allerdings füllst du das array @number welches nur für diesen block gilt:
  
{my @number = split(/-/, $myc);}  
gruss
-- 
no strict;
no warnings;
79.78 cups of Coffee (Brewed) + Me = Death
Reklame ist die Kunst, auf den Kopf zu zielen und die Brieftasche zu treffen.
  no strict;
no warnings;
79.78 cups of Coffee (Brewed) + Me = Death
Reklame ist die Kunst, auf den Kopf zu zielen und die Brieftasche zu treffen.