#!/usr/bin/perl
my @nums = (100, 200, 300, 400, 500);
my $discount = 10;
@nums = map { $_ - $discount } @nums;
IyEvdXNyL2Jpbi9wZXJsCgpteSBAbnVtcyA9ICgxMDAsIDIwMCwgMzAwLCA0MDAsIDUwMCk7Cm15ICRkaXNjb3VudCA9IDEwOwpAbnVtcyA9IG1hcCB7ICRfIC0gJGRpc2NvdW50IH0gQG51bXM7CiAKcHJpbnQgam9pbignLCAnLCBAbnVtcyk7