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

my $phrase="I like apple pie"; #### set the phrase
my @array = split(//, $phrase);### split phrase into individual charachters###
foreach  my $w (@array){
	print "$array[$w]\n";
};