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

use Devel::Size qw(size);

my ($a, $b);
$a = 32000;
warn size($a);          # 16
$b = "$a";
warn size($a);          # 32036
my $c = "32000";
warn size($c);          # 32