#!/usr/bin/perl

use warnings;
use strict;

my $test = '';

$test = "apples";
print reverse $test;