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

##</code><code>##

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

##</code><code>##

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