no strict qw/vars/;

( $sel1, $sel2, $sel3, $sel4, $sel5 ) = ( 1, 2, 3, 4, 5 );

my $sum = 0;

$sum += ${$::{$_}} foreach grep /sel\d+/, keys %::;

print $sum, "\n";