Select Code to Download

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

my @f;
{
  redo if $_ = shift @f || <STDIN>;
}