my @x=(1,2,3,4,5,6,7,8);
my $y=100;
my @pi;

foreach my $tmp (@x){
    push(@pi, $tmp/$y);
}

foreach my $tmp (@pi){
    print "$tmp, ";
}