#!/usr/bin/perl --
use strict; use warnings;
Main( @ARGV );
exit( 0 );
sub Main {
    my @Solutions;
    ...
    push @Solutions, Solution( $t, $i, $A, $B );
    ...
    print join "\n", "Top 100:", @Solutions[ 0 .. 99 ];
}
sub Solution {
   my( $t, $i, $A, $B ) = @_;
   my $result = $t / $i / $A / $B + "yada yada yada";
   return $result;
}