use strict;
use warnings;

use List::Util qw( min );

use Data::Dump qw( pp );

my (@_x, @_y);
my @one = 1;
my @two = 0.5;

pp { one => $#one, two => $#two };
pp @one, @two;
 
for my $_in (1..5) 
{ 
  push @_x, "$_in";
  my $_out = 0;
  
  #pp "$#_x", "$#one", min $#_x, $#one;
  #pp "$#_y", "$#two", min $#_y, $#two;
  
  my $x_max = min $#_x, $#one;
  my $y_max = min $#_y, $#two;
  
  pp { x => $x_max, y => $y_max };
  
  $_out += $one[$_] for 0..$x_max;
  $_out -= $two[$_] for 0..$y_max;
  
  push @_y, $_out;
}

pp { one => $#one, two => $#two };
pp @_y;