Select Code to Download

my $water_samples = join '', map chr, 113, 101, 769;
my $last_sample = substr($water_samples, -1, 1);
print(ord($last_sample), "\n");

my $water_samples = join '', map chr, 113, 101, 769;
$water_samples = reverse($water_samples);
my $last_sample = substr($water_samples, 0, 1);
print(ord($last_sample), "\n");