পার্ল ডেটা অ্যাক্সেস

my @fruits = ("আপেল", "আঙ্গুর", "কমলা", "কলা");

print $fruits[0], "\n";
print $fruits[1];

my %user = (
  "নাম" => "মোঃ আরিফ",
  "দেশ" => "বাংলাদেশ"
);

print $user{"নাম"}, "\n";
print $user{"দেশ"};

my %user = (
  "নাম" => "মোঃ আরিফ",
  "তথ্য" => {
    "স্বপ্ন" => "সফটওয়্যার ইঞ্জিনিয়ার",
    "দেশ" => "বাংলাদেশ"
  }
);

print $user{"নাম"}, "\n";
print $user{"তথ্য"}{"স্বপ্ন"}, "\n";
print $user{"তথ্য"}{"দেশ"};

my $user = {
  "নাম" => "মোঃ আরিফ",
  "তথ্য" => {
    "স্বপ্ন" => "সফটওয়্যার ইঞ্জিনিয়ার",
    "দেশ" => "বাংলাদেশ"
  }
};

print $user{"নাম"};
print $user{"তথ্য"}{"স্বপ্ন"};
print $user{"তথ্য"}{"দেশ"};

my $user = {
  "নাম" => "মোঃ আরিফ",
  "দক্ষতা" => ["পিএইচপি", "জাভা", "পাইথন", "জাভাস্ক্রিপ্ট"]
};

print $user->{"নাম"}, "
";
print $user->{"দক্ষতা"}->[1], ", ";
print $user->{"দক্ষতা"}->[2];

my $user = {
  "নাম" => "মোঃ আরিফ",
  "কাজ" => "প্রোগ্রামিং",
  "দক্ষতা" => ["পিএইচপি", "পাইথন", "জাভাস্ক্রিপ্ট"],
  "তথ্য" => {
    "দেশ" => "বাংলাদেশ"
  }
};

print $user->{"নাম"}, "
";
print $user->{"কাজ"}, "
";
print $user->{"দক্ষতা"}->[0], "
";
print $user->{"তথ্য"}{"দেশ"};

my @users = (
  [10, "তানিম", "বাংলাদেশ"],
  [11, "জোহান", "নেদারল্যান্ড"],
  [12, "হামিদ", "আফগানিস্তান"],
  [13, "সাকিব", "বাংলাদেশ"]
);

print $users[0][0], "\n";
print $users[0][1], "\n";
print $users[0][2];

my @users = (
  [10, "তানিম", "বাংলাদেশ"],
  [11, "জোহান", "নেদারল্যান্ড"],
  [12, "হামিদ", "আফগানিস্তান"],
  [13, "সাকিব", "বাংলাদেশ"]
);

print $users[0][0], "\n";
print $users[0][1], "\n";
print $users[0][2];

my $users = [
  {"আইডি" => 10, "নাম" => "তানিম", "দেশ" => "বাংলাদেশ"},
  {"আইডি" => 11, "নাম" => "জোহান", "দেশ" => "নেদারল্যান্ড"},
  {"আইডি" => 12, "নাম" => "হামিদ", "দেশ" => "আফগানিস্তান"},
  {"আইডি" => 13, "নাম" => "সাকিব", "দেশ" => "বাংলাদেশ"}
];

print $users->[0]->{"আইডি"}, "
";
print $users->[0]->{"নাম"}, "
";
print $users->[0]->{"দেশ"};

my $users = [
  ["আইডি", "নাম", "দেশ"],
  [10, "তানিম", "বাংলাদেশ"],
  [11, "জোহান", "নেদারল্যান্ড"],
  [12, "হামিদ", "আফগানিস্তান"],
  [13, "সাকিব", "বাংলাদেশ"]
];

print $users->[0]->[0], "
";
print $users->[0]->[1], "
";
print $users->[0]->[2];