my @f;
while ( $_ = scalar @f ? shift @f : <STDIN> ) {
  chomp;
  unshift(@f,"hi test test") if condition;
}