use strict;
use warnings;
my $ze="1000/$massstab[1]";