#!/usr/bin/perl

use strict;
use warnings;

my %cookie = (
  one => 1,
  two => 2,
);

for my $key (sort keys %cookie){
  my $value = $cookie{$key};
  print "$key $value </br>\n";
}