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

my $characters = {
        'Apple' => {
                    'fruit_id' => '0'
         },
        'Orange' => {
                    'fruit_id' => '0'
        },
    };

while( my ($fruit_name) = each %$characters)
{
    print "$fruit_name\n";
}

##</code><code>##

Apple
Orange