#!/usr/bin/perl
use warnings; use strict;

open (my $loop_fh, '<', \"Apples\nOranges\nBannanas\nKiwis")
    or die "unable to open: $!";

while (<$loop_fh>) {
  chomp;
  print "item $. is $_\n";
}