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

@needs = (25, 10, 5);
foreach $count(@needs)
  {
   $reason = !evalneed($count);
  }
evalneed(1);

return 0;
[download]