Select Code to Download

#!/usr/bin/perl -w
use strict;

$min = shift(@positions);
$max = pop(@positions);

$max = (@positions)[-1];
$min = (@positions)[0];