$string1='2000-02';
$string2='2000-2';
($var1,$var2) = split(/-/,$string);
($var3,$var4) = split(/-/,$string);
my %array = (1, 30, 2, 125);