@bingo=(1,2,3);
$arr1='bingo';
print $#{$arr1}, scalar(@$arr1)-1, scalar(@bingo)-1;